home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / footage / pict08.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  2.5 KB  |  102 lines
  1. global pict, precast, moviepos, foreframe, movieshow, g_pictpath, movieprepos, qtframelist, pictname, g_pause, womannum
  2.  
  3. on importpict
  4.   global pict, precast, moviepos, g_pictpath, pictname, g_image, lcastname, pictlib
  5.   set umember to the member of sprite 22
  6.   set the member of sprite 22 to member (getAt(qtframelist, value(moviepos)) + value(pictname)) of castLib lcastname
  7.   unloadMember(member umember)
  8.   updateStage()
  9. end
  10.  
  11. on judgeframe
  12.   if pict >= (getAt(qtframelist, moviepos + 1) - getAt(qtframelist, moviepos)) then
  13.     set pict to 0
  14.     if moviepos = 4 then
  15.       set moviepos to 1
  16.     else
  17.       set moviepos to moviepos + 1
  18.     end if
  19.     pictcast()
  20.     set movieprepos to moviepos
  21.     set g_pictpath to the pathName & "PICTS\" & womannum & "\0" & moviepos & "\"
  22.   end if
  23.   importpict()
  24. end
  25.  
  26. on pictcast
  27.   global pict, pictname
  28.   set a to pict / 100
  29.   set b to (pict - (100 * a)) / 10
  30.   set c to pict - (100 * a) - (10 * b)
  31.   set pictname to string(a) & string(b) & string(c)
  32. end
  33.  
  34. on checkkey0
  35.   global scastname, movieshow, delaytime, qtframelist
  36.   dontPassEvent()
  37.   if the key = TAB then
  38.     set movieshow to 1
  39.     dontPassEvent()
  40.     set the keyDownScript to "checkkeytab"
  41.     go("move")
  42.     set the visible of sprite 23 to 1
  43.     set the visible of sprite 29 to 1
  44.     set the visible of sprite 24 to 1
  45.     set the member of sprite 24 to member (pict + getAt(qtframelist, moviepos)) of castLib scastname
  46.     updateStage()
  47.   end if
  48.   if the key = "1" then
  49.     set delaytime to 120
  50.   end if
  51.   if the key = "2" then
  52.     set delaytime to 60
  53.   end if
  54.   if the key = "3" then
  55.     set delaytime to 30
  56.   end if
  57.   if the key = RETURN then
  58.     if objectp(g_image) then
  59.       g_image(mdispose)
  60.     end if
  61.     set the keyDownScript to EMPTY
  62.     cursor(-1)
  63.     go(1, womannum)
  64.   end if
  65.   if the keyCode = 125 then
  66.     go("pa")
  67.     set g_pause to 1
  68.   end if
  69.   if the keyCode = 126 then
  70.     set g_pause to 0
  71.     set the visible of sprite 23 to 0
  72.     set the visible of sprite 24 to 0
  73.     set the visible of sprite 29 to 0
  74.     go("from")
  75.   end if
  76.   if (the keyCode = 76) or (the keyCode = 36) then
  77.     go(1, womannum)
  78.   else
  79.     if the keyCode = 115 then
  80.       if objectp(g_image) then
  81.         g_image(mdispose)
  82.       end if
  83.       go(1, "@\..\MAINMENU")
  84.     else
  85.       if the commandDown and (the keyCode = 12) then
  86.         cursor(-1)
  87.         if objectp(g_image) then
  88.           g_image(mdispose)
  89.         end if
  90.         dontPassEvent()
  91.         go(1, "@\..\QUIT")
  92.       end if
  93.     end if
  94.   end if
  95. end
  96.  
  97. on wait delaytime
  98.   if the timer < delaytime then
  99.     go(the frame)
  100.   end if
  101. end
  102.